extern E_f urand_(integer *iy);
